inherited fConsulta: TfConsulta
  Left = 369
  Top = 102
  Width = 621
  Height = 552
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel [0]
    Left = 8
    Top = 53
    Width = 81
    Height = 13
    Caption = 'Data da consulta'
  end
  object Label2: TLabel [1]
    Left = 99
    Top = 54
    Width = 122
    Height = 13
    Caption = 'Cl'#237'nica / Estabelecimento'
  end
  object Label3: TLabel [2]
    Left = 7
    Top = 133
    Width = 27
    Height = 13
    Caption = 'S'#243'cio'
  end
  object Label6: TLabel [3]
    Left = 8
    Top = 177
    Width = 59
    Height = 13
    Caption = 'Dependente'
  end
  object SpeedButton5: TSpeedButton [4]
    Left = 492
    Top = 184
    Width = 30
    Height = 31
    Flat = True
    Glyph.Data = {
      86070000424D86070000000000003600000028000000180000001A0000000100
      1800000000005007000000000000000000000000000000000000FFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDEFFDEE0FFE0E0FFE0
      E0FFE0E0FFE0E0FFE0E0FFE0E0FFE0DCFFDCFDFFFDFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFFFBDBFFDBC8
      FFC8C2F8C2C3F9C3C3F9C3C3F9C3C3F9C3C3F9C3C4FAC4CBFFCBCCFFCCCBFFCB
      EAFFEAFAFFFAFCFFFCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFECFF
      ECC3FFC3D0FFD0ACDFAC94C7949CD0959DD1949ACD969DD1949DD09396CA95C4
      F7C4D2FFD2B9ECB9CFFFCFC4FFC4E7FFE7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FAFFFAD1FFD1CDFFCDD0FFD0B1E4B199CC9987BA7E4677963B6B9B6A9F7A3B6C
      9A396A9A97CA9A9BCE9AA1D4A198CB989DD09DCDFFCDD1FFD1D6FFD6FFFFFFFF
      FFFFFFFFFFF9FFF9CCFFCCC4F9C4BAEDBAB3E6B389BC8980B37F5C93671D2D39
      434874408E8741476F1E275488B985A0D39FA3D9A099CF9698CE969CD298A5D9
      A5C7FFC7DEFFDEFFFFFFF8FFF8D3FFD3ABDFABA4D7A39CCF9B70A570699E6969
      9D6631643639705A91C8CB002D00A6DCDD255C5B3D715E81B77A3043503C5A51
      37554C344852A2DB9CCAFECACFFFCFF8FFF8F7FFF7A7DFA781B4805D9062588B
      6456784F577A516085680036198FC2BC8AC1C2616467A5DDDD88BBBC03363271
      A9673A41662925615B58915F599858717198CE95CCFFCCF3FFF3F7FFF7A6E0A6
      79AC75699C8035666E4262663F5F6362939A001F0088BDB588BFC05B6061A3DA
      DA7DB0B122555070A8663B44668B8ABF4B4C7E8481BA3A5551B0E7ADC8FFC8F2
      FFF2FEFBFEDDFADC9CD1A144737659B8B9549A9A5499995DC4C5404C4A98C4C4
      88C0C05B65659FD6D6A0D3D53C6F6A6FA35D3B4562554B864C42797F77B33C5B
      54C8FCC4E3FFE3FFFFFFFFFFFFFFFBFFC3F5C937656962C2C25BA7A75CA8A85B
      C0C045545597C2C39ED3D381B8B99BCECFA3D6D83B7067618E6F321D612E0E7F
      2D27933F157D2D4683E3EAF1FFFFFFFFFFFFFFFFFFFFFFFFBDEDC0387D8169D5
      D567A3A368A8A85AB7B7433A3B94C4C895CCCF96CCCF94CACCA1D6DA3C76684C
      586D543AB02F67CD306ED4476BCF3314A4D9D5E6FFFFFFFFFFFFFFFFFFFFFFFF
      A7D8AB61B7BC66D2D266B0B0678686587E7F4A4241A49F59BCB67DB9B377BBB3
      74ACBE9E39686C5A6A9C2B4CB03369D03166CC3E6DD03C16A8D9D1E2FFFFFFFF
      FFFFFFFFFFFFFDFF639C7064D9E066D4D569A4A6649CA0477F8D6A7C46F5F3A5
      FFFFD4FFFFEEFFFFF7DFDC836059448490452A5DB63366CF3166CC3E6DCF3C17
      A8D9D1E3FFFFFFFFFFFFFFFFFFF9FAF9588A565A8B7161918A3D736D7C8C64D2
      CD7DD4D4C1FFFFCDFFFFDEFFFFFFFFFFF2FFFFD3BCB9B1ABC5992560BA3168D4
      316AD4486AD6350DA5DAD1E3FFFFFFFFFFFFFFFFFF8BAD8C4B7F4F6FA27DA5D9
      9F5F8B5166684CFFFFD9DADAC8FBFBE3FFFFF1FFFFFFFFFFFAE7E7DFF0EFEDA4
      AE992031743B519E1C32833D5457150D68E0D9EDFFFFFFFFFFFFFFFFFF698869
      ACE2AC90C38FD9FFDBDFFFCB7C9866D4D4D2FFFFFFFEFEFFFFFFFFFFFFFFFFFF
      FFFAFAFBFFFFFF9B918F43929077679F6F5B9597FFF153A3A1B1B4B5FFFFFFFF
      FFFFFFFFFF6A896AB8EDB89ACD9AC9FCC9CEFFD3BFDFA7726C5DEDEDF1FFFFFF
      F5FFFFF6FFFFF7FFFFFFFFFFE9E3E444714E4EB7AD8AAED0A4C8E971DCDBADFF
      FF54A4A3B5BCBCFFFFFFFFFFFF618261C6FCC6CDFFCDC8FBC8D3FFD1D8FFDAB8
      D7A0837B63AFAEAD42ABD743A8D59ABDB5D9CDD14F79516AD1CB76DDDDA1FFFF
      9FFFFF6BC7C76EBDBD95FFFF688383FFFFFFFFFFFFE4F8E4407840BBF0BBDBFF
      DA90BB9C91BD9DDAFFD53356881231786DDDFF69D6FF4988BA2147154AB0AC67
      D2D480E6E690FEFA8EFCF890F7F770DBD995FFFF668181FFFFFFFFFFFFFFFFFF
      DEEDDE74976F85BC7738639B39649883B49B4A539563ADE567D2FF64D2FF87B3
      E804228D97A9AD43A3A169DED8334F7439557A6CE3DFB7FFFF4E959BCFD5D4FF
      FFFFFFFFFFFFFFFFFDFAFB5455744875AC6BA0D56BA4DD484E538297B04E5EE7
      6EDBFF71E1FF3A28BC00157AFAF9FA96ABAA333C69958FC549437E000000021B
      1BDBDFDFFFFFFFFFFFFFFFFFFFFFFFFFABABB1140E4C719CD0669BCE69A3D642
      3D778F89A820399C2C60C0344AAD000064939CC2FFFFFF928FAB8583BC7777AA
      7272A9302F47000000D6D5D5FFFFFFFFFFFFFFFFFFFFFFFFBFBFBD0000125276
      AE6DA2D572A8DD00001E8B8B9DE0E0EB001988001D85325EAEFCFDFBFFFFFF60
      60607A7AA86E6B9F4C4B8205050B000000DDDDDDFFFFFFFFFFFFFFFFFFFFFFFF
      FAFAF97679874E2A4B27276239163E65657DFFFFFFFFFFFFFFFFFDFFFFFEFFFF
      FEFFFFFFFFFFFF5353643E3D5E5F7BB909101E070602727272FDFDFDFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFF9F9F7BEC1BC9393A1999C9CFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDAD9D80D0C07000310000000BCBBBBFEFE
      FEFFFFFFFFFFFFFFFFFF}
    OnClick = SpeedButton5Click
  end
  object SpeedButton1: TSpeedButton [5]
    Left = 492
    Top = 140
    Width = 30
    Height = 33
    Flat = True
    Glyph.Data = {
      F6060000424DF606000000000000360000002800000018000000180000000100
      180000000000C0060000C40E0000C40E00000000000000000000C0C0C0C0C0C0
      C0C0C0C0C0C0BDBEBEBFBFBFBEBFBFBFBFBFBDBFBFC0BFBEBCBDBEC1C0BDBDBD
      BEBFC0BEBEBEBEBEBEBEBEBEBEBEBFBFBCBDBDC0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0BEC0C0A59494AD9696BEACACD6CCCCE4E0DEE7E5E5
      4F4EEA5354ED7171EDEEEEEDEEEBEAEAE6E6E5E0E0E4DCDCB3AEAEBFC0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0BFBFC1C5C5A69A9AA28383BAA4A4D3
      C3C3E9E0DEFCF6EA4D4CEF2221F27271F2FFFFF2F3EFEEEFEAEAECE7E7E0D4D4
      A9A4A4C1C3C3BFBFBFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0BFBFBFC2C3C3B6B7
      B7997A7AB8A2A2C9B8B8D9CDCEF6EFDF7E7BE51B1AE79393E8FFFEE7EAE4E5E8
      E0E0E8DFDFC8B8B8B4B4B4C1C1C1BFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0BFBFC0C0C0C1C6C69B8080B7A0A0C5B3B3CFC1C1EADED1A69FDB1517DEC2BE
      DFF6EEDEE1D8DADFD5D5DFD1D1B2A3A3BCBFBFBFBFBFC0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0BFBFBFC3C5C5AAA0A0A88C8CCABABACCBBBCDACCC5
      C7BBCB161BCDFFF1CED8CACBD5C8C8D9CCCCC4AEAE9B9999C4C6C6BFBFBFC0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0BFBFBFBEC0C09D8383C9
      B6B6CFC2C3D5C6C3D8CBC63338C8FFFAC9CEC1C6D4C8C7D2C0C0A49292C0C5C5
      C0C0C0C0BFBFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0BEBE
      BEC2C4C4B0AFAFA68888D4C6C6D8CECDDCCEC8938FCAF1DFCAD5CACDDACDCDA8
      9393B4B4B4C1C1C1BFC0C0C0BFBFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0BFBFBFC2C6C6B0A7A7B49899DDCFCEF3E9DCA19FD9FFFF
      DCE3D6D9B09898ADA9A9C1C3C3C0BFBFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0BFBFBFC5C6C4ACA7A4BAA199
      8077B91017C48379B8B49F8EB1B1AFC4C4C3BFC0C0BFBFBFC0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C1C3BFBBAF
      B2B89EB5CCA5C7ECC2E6FFDCFCFFCBEAFFB4D4F1B6C7DAB3B6BABFBCBABEBFBF
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0BEBF
      BFC5C1BAACABAA95BBEBA8CCF4B7D6F9BCD5F6BFDAF8C4DCF9C7E0FDC6E0FFB8
      D3EE9FA4A7CFCAC4BFBFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0BFBFC0C4C2BFAEB2BA87B8F7A0C5F1ABCCF4B2D2F8B6D7FAB9D7FABCD8
      FDBDD9FCBCD9FDC1DEFFBDE4FF92979FC4C1C0BEBEBEC0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0BFC0C0C8C1B783A7D18EBCF09FC4F0A8CBF5AECFF9
      B2D3F9B5D5FCB7D7FCB7D6FDB6D6FBB5D5FBB7DAFFA5C2E1BCB8B3BFBFC0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0BFBFC0C6C4C0ABAFB37DAFEC95BDEE9E
      C5F3A3C9F7A8CEFAAACFFBADD0FCAFD6FFAFD6FFAED6FFAFD4FFACD1FEA1CBF6
      A7AEB9C4C2BFBFBFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0BFC0C0C6C3BE969F
      AF84C2FD95C4F99AC3F49FC7F9A1CAFAA5D2FFA3DBFF9DCDF59CC7EF9BC4EC9E
      CFF9A1D4FFA0DDFF9EB9CFC7C0BDBFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C1C6C67A29297B48568DC6F499CCFF99C3F79CCCFF8FC4F4867990782E
      3274262C6A202A652B3C65395168608379788ECDCDC9BFBFBFC0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0BFC6C6802E2E86120693322890B6E095D4FF8FD1FF
      8E48459823108B2B29852A277B2427701D25671721500005310000D3DCDCBFBF
      BFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0BEBEC3CFCF8F5855902922AC5548AA
      56489F8B989E848EB04E39A95A4E9D4F499649458C4242833E438140495E1726
      52242DD1DBD9BFBFBFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0BFBFBFC6CBCBA8A4
      A68F291FC3847CC27D72C97A68C87C69C18076BE7E71B3726EAE6E6AA668679B
      6266A271775A1320928685C8CBCBBFBFBFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0BFBEBEC6D3D597625DBF756BD8ABA4D49F94D39F94CF9A92CB988EC38F
      8BBF8C89B78684BC9395AD77805C2E33CAD2D0BFBFBFC0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0BFBEBEC0CDCE9E625DD6A098E8C8C2E5C6BF
      E3C4BDDFC0BADBBCB9D9BBBAD9BABAC09396662E33C4CFCDC2C4C3BFBFBFC0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0BFBFBFC0C1C1C2D3D6A1
      7571B0766DCE9B93D5A8A1D6AAA5CEA19EC49391996666805B5CC0C8C7C4C5C5
      BEBEBEC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0BFBFC0C0C0C0C7C9B4B1B2B09D9AAE918DB29592AB8F8EA79493B1ACACC3
      C9C8C1C4C4BFBFBFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0}
    OnClick = SpeedButton1Click
  end
  object SpeedButton10: TSpeedButton [6]
    Left = 575
    Top = 96
    Width = 30
    Height = 31
    BiDiMode = bdLeftToRight
    Flat = True
    Glyph.Data = {
      AE060000424DAE06000000000000360000002800000017000000170000000100
      18000000000078060000C40E0000C40E00000000000000000000FFFFFFFFFFFF
      FFFFFFFFFFFFEBEBEBE0E0E0E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2
      E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E5E5E500
      0000FFFFFFFFFFFFFFFFFFFFFFFFBDBBBDABA9ABADABADADADADADABADADADAD
      ADACADADADADADADADADACADADACADAAAAAAADACADADACADADABADADABADADAC
      ADA8A8A87B7B7B000000FFFFFFFFFFFFF5F5F5000000070F0711151111161111
      0F11111711111011111411110C11110B11111411060D06181A18070C07111311
      1115111119110610065E5C5E949494000000FFFFFFFFFFFFFFFFFFD7D0D70A48
      0A009500009500000E0000AB00001E00008000000E00002D00005A003C753CFF
      FFFF2E5B2E006200009500007000004200766E76B5B5B5000000FFFFFFFFFFFF
      FFFFFFFFFFFF342634003000009E00000400001900000000007700000300001B
      00005800280828FFFEFF1E021E006600007200000000908690A3A3A3E2E2E200
      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000EA003200007400007900009400
      008C00002A00005400009300008F00005F00005F000061002511258381839D9D
      9DC5C5C5FFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FF0000CB00
      0088000D50004100002F00000000000000004100003200000000766A76675C67
      A6A6A6ADADADFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FF0000FF0000FF0000FF0000FF00004C000000000000000000000000746C74AC
      ABAC9191918A8A8AF5F5F5FCFCFCFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
      D2D2D2CDCDCDE7E7C80000FF0000FF0000FF0000FF0000F00000000031000028
      00281828CCC8CC919191FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00
      0000FFFFFFFFFFE6BABA9CB8B89ACDCD900000FF0000FF0000FF0000CA003F00
      006800009200008F000055000E320EB1ADAFA5A59E9A9A98FFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFF000000C9C9FF0000FF0000FF0000FF0000FF0000FF0000FF00
      00FF0C0B8F30251D006100006500006200004F001A1219A2A1A59E9ECEB8B8BE
      999997FFFFFFFFFFFFFFFFFFFFFFFF000000CDCDFF0000FF0000FF0000FF0000
      FF0000FF0000FF0000FF616135FFFFFF958995332733605360C1B9C1FFFFFF00
      00150000FF9898CE9F9F97FFFFFFFFFFFFFFFFFFFFFFFF000000CDCDFF0000FF
      0000FF0000FF0000FF0000FF0000FF00002D5D5D52FFFFFF5858587C7C7CD1D1
      D15D5D5DFFFFFF00000000008D9C9CD9A0A098FFFFFFFFFFFFFFFFFFFFFFFF00
      0000CDCDFF0000FF0000FF0000FF0000FF0000FF0000FF0000582F2F21515151
      525252424242F9F9F9FFFFFFE6E6E40000000000A99C9CD7A0A098FFFFFFFFFF
      FFFFFFFFFFFFFF000000CDCDFF0000FF0000FF0000FF0000FF0000FF0000FF00
      00FF000000332F336B6A6B6B656B5C505C5F525F110B0B0000040000FF9C9CCC
      A0A098FFFFFFFFFFFFFFFFFFFFFFFF000000C9C9FF0000FF0000FF0000FF0000
      FF0000FF0000FF0000FF002E000025002D2E2D002E0000650000760000260000
      00FF0000FF9999CDA0A098FFFFFFFFFFFFFFFFFFFFFFFF000000E4E4FF6969FF
      7575FF7575FF8484FF0000FF0000FF0000FF0000AA8884740C0C0C4E434E0027
      00000000335124625EEE5454ECB1B1CC959591FFFFFFFFFFFFFFFFFFFFFFFF00
      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FF0000FF0000FF00009A171700
      98988D020000000800221D22CDCACD9595858D8D7C7D7D79F6F6F6FFFFFFFFFF
      FFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FF0000FF00
      00FF0000FF0000840000230000B5B6B3EED1D1CA9C9C9CACACACFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FF0000FF0000FF0000FF0000FF0000FF0000FF0000FFA1A1C79B9B94F6F6F6FF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFF0000FF0000FF0000FF0000FF0000FF0000FF0000FFA3A3
      CCFFFFFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00
      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF5F5FFF6B6BFF6B6BFF6B6BFF6B6BFF
      6B6BFF5D5DFFEDEDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000}
    Layout = blGlyphRight
    ParentBiDiMode = False
    OnClick = SpeedButton10Click
  end
  object Label33: TLabel [7]
    Left = 9
    Top = 105
    Width = 24
    Height = 13
    Caption = 'CRM'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label32: TLabel [8]
    Left = 114
    Top = 105
    Width = 35
    Height = 13
    Caption = 'M'#233'dico'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel [9]
    Left = 512
    Top = 51
    Width = 24
    Height = 13
    Caption = 'Valor'
  end
  object Label8: TLabel [10]
    Left = 346
    Top = 177
    Width = 54
    Height = 13
    Caption = 'Parentesco'
  end
  object Panel2: TPanel [11]
    Left = 524
    Top = 134
    Width = 81
    Height = 80
    BevelInner = bvLowered
    TabOrder = 12
    object Label4: TLabel
      Left = 7
      Top = 3
      Width = 29
      Height = 13
      Caption = 'Grupo'
    end
    object Label5: TLabel
      Left = 7
      Top = 40
      Width = 38
      Height = 13
      Caption = 'Incri'#231#227'o'
    end
    object DBEdit3: TDBEdit
      Left = 6
      Top = 17
      Width = 65
      Height = 21
      CharCase = ecUpperCase
      Color = clInfoBk
      DataField = 'GRUPO'
      DataSource = DtSrc
      ReadOnly = True
      TabOrder = 0
      OnKeyPress = FormKeyPress
    end
    object DBEdit4: TDBEdit
      Left = 7
      Top = 54
      Width = 67
      Height = 21
      CharCase = ecUpperCase
      Color = clInfoBk
      DataField = 'INSCRICAO'
      DataSource = DtSrc
      ReadOnly = True
      TabOrder = 1
      OnKeyPress = FormKeyPress
    end
  end
  inherited Panel1: TPanel
    Top = 471
    Width = 605
    TabOrder = 8
    inherited btnGravar: TdxButton [0]
      Left = 115
    end
    inherited btnIncluir: TdxButton [1]
      Left = 115
    end
    object dxButton3: TdxButton [2]
      Left = 316
      Top = 7
      Width = 82
      Height = 28
      Cursor = crHandPoint
      About = 'Design eXperience. '#169' 2002 M. Hoffmann'
      PopupMenu = PopupMenu1
      Version = '1.0.2e'
      OnClick = dxButton3Click
      Caption = 'Imprimir'
      Colors.BackgroundFrom = 13029334
      Glyph.Data = {
        BE080000424DBE0800000000000036000000280000001C0000001A0000000100
        18000000000088080000C40E0000C40E00000000000000000000EFFFFFEFFFFF
        EFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFF
        FFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEF
        FFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFF
        EFFFFFEEFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFF0FFFFF0FFFFF0FF
        FFF0FFFFF0FFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEF
        FFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEEFFFFF2FFFFE9F8F7EAF7F8
        EAF7F8EAF7F8EAF7F8E9F7F7E7F7F5E7F7F6E7F7F6E7F6F6E7F6F5E8F6F6F0FF
        FEEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEF
        FFFFEFFFFFEFFFFFF3FFFFEDEDECCFD1CDD1CACFD1CBCFD1CBCFD1CBD0CDCACC
        C6CAC5C7CAC5C7CAC5C7C7C5C5BFC4CBC7C9E9ECE7EEFDFAEFFFFFEFFFFFEFFF
        FFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFF2FFFFD1D6D7A2
        A9A1FFFFFFFCFCFCFCFCFCFCFDFCFBFCFBFBFBFBFCFBFCFCFBFCFCFBFCFBFBFB
        FCFAFCFFFFFFD5D3D4C0C5C7F3FFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFF
        FFEFFFFFEEFFFFF1FFFFF8FFFFF9FFFFF9FFFF8D908CFFFFFFDEDADEDBE0DBDB
        DBDBE0DDE0E5E1E5DFDADFE0DFE0E6E7E6D6D6D6FAF8FAFFFFFFC6C1C4E1EAE4
        FBFFFFF8FFFFF3FFFFEFFFFFEFFFFFEFFFFFEFFFFFEEFFFFF3FFFFE1E1E59DA1
        A29FABA4A6AFA8949393FFFFFFF0F5F0EBF3EBEAEEEAFBF7FBFFFFFFFEFAFEFE
        FFFEFFFDFFFFF9FFFFFFFFFFFFFFC7C2C6A0A09FA2AAA79DA2A1CFCDD2F2FFFF
        EFFFFFEFFFFFEFFFFFEFFFFFF3FFFFA6A1A46A6B69737072666466898B89FFFF
        FFEBE9EBE6E7E6ECEFECEDEBEDEBEAEBE1E8E1E3E8E3F1EAF1E3E3E3F9F8F9FF
        FFFFC4C0C44F544F5B5B5A564E566B6D69EEFFFEF0FFFFEFFFFFEFFFFFEFFFFF
        F1FFFF8C848A655C65676267646065747874FFFFFFF4EFF4F0ECF0F3EEF3EEED
        EEEEF0EEEFEEEFEDEDEDEDE8EDE3E7E3F0EDF0FFFFFFAAAAAA5755575C5C5C5A
        585A686667EDFDFDF0FFFFEFFFFFEFFFFFF0FFFFF0FFFF757473555255605F60
        6667666E676EACA6ABA7ABA7A0A4A0A0A6A0A1A5A1A1A6A1A0A6A0AEA8AEADAC
        ADACACACB0AAB0ADB0AD8085807778777C7D7C7A7C7A6F726DECFCFBF0FFFFEF
        FFFFEFFFFFF0FFFFF0FFFF5B58593635364645464F4B4F2F2B2E303338363238
        322D31332D32332D32332D32332D32322D312C292B2F2B2D3E393D363136272A
        27605B606966686B676B625B60EBFBFBF0FFFFEFFFFFEFFFFFF0FFFFF0FFFF5D
        5A5B3C3D3C5A575B625A6011161C050E17060D15070D14070D14070D14070D14
        070D14070D14070E14070D14050C1306090B0002006160616D706E6E726E6862
        66ECFBFBF0FFFFEFFFFFEFFFFFF0FFFFF0FFFF6460624441445E585D5F5C5F57
        51564940474B44494B44494B44494B44494A44494944484944484D454B4A4449
        51474F464145545554767176706F716D6E6E666364ECFBFBF0FFFFEFFFFFEFFF
        FFF0FFFFF1FFFF5554532F292F4347434F4A4F4E4F4E414042444844434A4342
        49424149414548454F494F4D484D514E51505050565356534D53615861625E62
        6360635E5A5E5F5D5DECFBFBF0FFFFEFFFFFEFFFFFF0FFFFF1FFFF70676E4643
        46615E616E6F6E635E63525252565556555555605B60665E6666606565656766
        6566666466636863636A63636463616761706D705F5A5F625E62747272EEFDFD
        F0FFFFEFFFFFEFFFFFF0FFFFEFFFFF7F827E6E696E8B8E8BB4B3B44445442922
        29383538423E424842484743474543454542454642464743473F3B3F3535352E
        2E2E343234D6D5D6BEBCBEB1B6B19F979EEDFBFCF0FFFFEFFFFFEFFFFFEFFFFF
        F0FFFFB8B7B6BBBABBDFE6DFFFFFFF9393936A696A8D898D959495A29FA2A1A7
        A1B0AAB0AFA9AFADAAADA1A5A1A29CA2908F907C7F7C767676FFFFFFF3F3F3D0
        C9D0ABABAAECFDFCF0FFFFEFFFFFEFFFFFEFFFFFF8FFFF9C979A171317333133
        4C504C1D171D0000000000000001000804080703070604060503050704070703
        070705070000000000000D080D514B51363736241C24737071F3FFFFEFFFFFEF
        FFFFEFFFFFEEFFFFF2FFFFDEE3E5A2A49FB6B4B4BCBABA9FA49F958C95B0ACB0
        A9A6A9A8A6A8A8A6A8A8A6A8A8A6A8A8A6A8A8A6A8A8A6A8A9A9A9A5A3A5A5A2
        A5BEBCBCB9B8B8B4AEB2D4D8DCF2FFFFEFFFFFEFFFFFEFFFFFEFFFFFEEFFFFF1
        FFFFF8FFFFF6FFFFF9FFFFE1E2E3929692C9C3C9B4BBB4B5BCB5B5BCB5B5BCB5
        B5BCB5B5BCB5B5BCB5B5BBB5C5BDC5ABAEABC7C8C5FBFFFFF6FFFFF6FFFFF2FF
        FFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFF3FFFFCD
        D0CF9F9D9ECFCBCFC9C3C9CAC4CACAC4CACAC4CACAC4CACAC4CACAC4CACAC4CA
        CAC6CAB5B9B6C3BDB5F4FFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFF
        FFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFF3FFFFCBC7CDB1ABB1DBDBDBD1D1D1D1
        D2D1D1D2D1D1D2D1D1D2D1D1D2D1D1D2D1D1D2D1D3D5D3C8CBC8B4B5B6F5FFFF
        EFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFF
        FFEFFFFFF3FFFFC4C9C5C0BFC0EEEBEEE8E3E8E8E4E8E8E4E8E8E4E8E8E4E8E8
        E4E8E8E4E8E8E4E8E9E5E9D9DBD9B7BDB9F4FFFFEFFFFFEFFFFFEFFFFFEFFFFF
        EFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFECFBF9F3EA
        F2F7F9F7F2F0F2F2F1F2F2F1F2F2F1F2F2F1F2F2F1F2F2F1F2F2F0F2F8F9F8EA
        ECE9F5F3F7EEFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFF
        EFFFFFEFFFFFEFFFFFEFFFFFEDFFFFFEFEFEE3E3E2F2F7F2F2F6F2F2F6F2F2F6
        F2F2F6F2F2F6F2F2F6F2F2F6F2F2F6F2F2F7F2E4E2E4EFF1EFEFFFFFEFFFFFEF
        FFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFF
        EEFFFFF2FFFEF3F2F2F6F2F6F6F2F6F6F2F6F6F2F6F6F2F6F6F2F6F6F2F6F6F2
        F6F6F2F6F6F2F6F4F1F2EFFDFBEEFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEF
        FFFF}
      TabOrder = 5
    end
    inherited btnCancelar: TdxButton [3]
      Left = 215
    end
    inherited btnSair: TdxButton [4]
      Left = 414
    end
    inherited btnExcluir: TdxButton [5]
      Left = 215
    end
  end
  object DBEdit1: TDBEdit [13]
    Left = 9
    Top = 68
    Width = 83
    Height = 21
    CharCase = ecUpperCase
    DataField = 'DATA_CONSULTA'
    DataSource = DtSrc
    TabOrder = 0
    OnKeyPress = FormKeyPress
  end
  object Panel3: TPanel [14]
    Left = 0
    Top = 0
    Width = 605
    Height = 36
    Align = alTop
    BevelInner = bvRaised
    Color = 11189162
    TabOrder = 9
    object Label16: TLabel
      Left = 121
      Top = 9
      Width = 377
      Height = 24
      Caption = 'Guia para Consultas e Estabelecimentos'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label15: TLabel
      Left = 121
      Top = 6
      Width = 377
      Height = 24
      Caption = 'Guia para Consultas e Estabelecimentos'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
  end
  object DBEdit2: TDBEdit [15]
    Left = 7
    Top = 148
    Width = 482
    Height = 21
    BevelKind = bkFlat
    BorderStyle = bsNone
    CharCase = ecUpperCase
    DataField = 'SOCIO'
    DataSource = DtSrc
    TabOrder = 5
    OnKeyPress = FormKeyPress
  end
  object DBEdit5: TDBEdit [16]
    Left = 7
    Top = 191
    Width = 330
    Height = 22
    BevelKind = bkFlat
    BorderStyle = bsNone
    CharCase = ecUpperCase
    DataField = 'DEPENDENTE'
    DataSource = DtSrc
    TabOrder = 6
    OnKeyPress = FormKeyPress
  end
  object DBGrid1: TDBGrid [17]
    Left = 7
    Top = 215
    Width = 597
    Height = 224
    TabStop = False
    DataSource = DtSrc
    ReadOnly = True
    TabOrder = 10
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'ID_CONSULTA'
        Title.Caption = 'C'#243'digo'
        Width = 40
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DATA_CONSULTA'
        Title.Caption = 'Data Consulta'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'GRUPO'
        Title.Caption = 'Grupo'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'INSCRICAO'
        Title.Caption = 'Inscri'#231#227'o'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SOCIO'
        Title.Caption = 'S'#243'cio'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DEPENDENTE'
        Title.Caption = 'Dependente'
        Visible = True
      end>
  end
  object DBNavigator1: TDBNavigator [18]
    Left = 62
    Top = 442
    Width = 488
    Height = 25
    DataSource = DtSrc
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
    Flat = True
    TabOrder = 11
  end
  object DBLookupComboBox1: TDBLookupComboBox [19]
    Left = 97
    Top = 68
    Width = 408
    Height = 21
    DataField = 'ID_CLINICA'
    DataSource = DtSrc
    KeyField = 'ID_CLINICA'
    ListField = 'NOME'
    ListSource = DataSource1
    TabOrder = 1
    OnKeyPress = FormKeyPress
  end
  object DBEdit30: TDBEdit [20]
    Left = 37
    Top = 103
    Width = 74
    Height = 21
    Color = clInfoBk
    DataField = 'CRM'
    DataSource = DtSrc
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnKeyPress = FormKeyPress
  end
  object DBEdit29: TDBEdit [21]
    Left = 153
    Top = 103
    Width = 417
    Height = 21
    CharCase = ecUpperCase
    Color = clInfoBk
    DataField = 'NOME_MEDICO'
    DataSource = DtSrc
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnKeyPress = FormKeyPress
  end
  object DBEdit6: TDBEdit [22]
    Left = 511
    Top = 68
    Width = 74
    Height = 21
    BevelKind = bkFlat
    BorderStyle = bsNone
    CharCase = ecUpperCase
    DataField = 'VALOR'
    DataSource = DtSrc
    TabOrder = 2
    OnKeyPress = FormKeyPress
  end
  object DBEdit7: TDBEdit [23]
    Left = 344
    Top = 191
    Width = 145
    Height = 21
    BevelKind = bkFlat
    BorderStyle = bsNone
    CharCase = ecUpperCase
    DataField = 'PARENTESCO'
    DataSource = DtSrc
    TabOrder = 7
    OnKeyPress = FormKeyPress
  end
  inherited PopupMenu1: TPopupMenu
    OwnerDraw = True
    Left = 403
    Top = 34
  end
  inherited DtSrc: TDataSource
    DataSet = DM.cds_consulta
    Left = 560
    Top = 6
  end
  object XPMenu1: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Color = clBtnFace
    DrawMenuBar = False
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    UseDimColor = False
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = True
    Active = True
    Left = 496
    Top = 6
  end
  object DataSource1: TDataSource
    DataSet = DM.cds_clinica
    Left = 429
    Top = 7
  end
  object VCLReport1: TVCLReport
    AsyncExecution = False
    Title = 'Untitled'
    Left = 528
    Top = 6
  end
  object proc_dep: TSQLClientDataSet
    CommandText = 
      'select   d.*'#13#10'           , p.DESCRICAO'#13#10'           , s.GRUPO'#13#10'  ' +
      '         , s.N_INSCRICAO '#13#10'           , s.SOBRENOME     '#13#10'from D' +
      'EPENDENTE d '#13#10'left outer join PARENTESCO p on p.ID_PAR=d.ID_PAR ' +
      #13#10'left outer join SOCIOS s on s.ID_SOCIO=d.ID_SOCIO '#13#10'where d.NO' +
      'ME_DEP like :pnome and d.ID_SOCIO = :pid'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pnome'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'pid'
        ParamType = ptInput
      end>
    DBConnection = DM.SQLObitos
    Left = 461
    Top = 7
    object proc_depID_DEP: TIntegerField
      FieldName = 'ID_DEP'
      Required = True
    end
    object proc_depID_SOCIO: TIntegerField
      FieldName = 'ID_SOCIO'
      Required = True
    end
    object proc_depNOME_DEP: TStringField
      FieldName = 'NOME_DEP'
      Size = 80
    end
    object proc_depFALECIDO: TStringField
      FieldName = 'FALECIDO'
      FixedChar = True
      Size = 1
    end
    object proc_depCODPAR: TFloatField
      FieldName = 'CODPAR'
    end
    object proc_depDTNASC: TDateField
      FieldName = 'DTNASC'
    end
    object proc_depDTFALEC: TDateField
      FieldName = 'DTFALEC'
    end
    object proc_depID_PAR: TIntegerField
      FieldName = 'ID_PAR'
    end
    object proc_depDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 30
    end
    object proc_depGRUPO: TStringField
      FieldName = 'GRUPO'
      FixedChar = True
      Size = 1
    end
    object proc_depN_INSCRICAO: TIntegerField
      FieldName = 'N_INSCRICAO'
      DisplayFormat = '0000'
    end
    object proc_depSOBRENOME: TStringField
      FieldName = 'SOBRENOME'
      Size = 40
    end
  end
  object proc_medico: TSQLClientDataSet
    CommandText = 
      'select ID_MEDICO,'#13#10'          CRM, '#13#10'          NOME_MEDICO '#13#10'from' +
      ' MEDICO '#13#10'Where CRM like :pcrm'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pcrm'
        ParamType = ptInput
      end>
    DBConnection = DM.SQLObitos
    Left = 400
    Top = 120
    object proc_medicoCRM: TStringField
      FieldName = 'CRM'
      Size = 10
    end
    object proc_medicoNOME_MEDICO: TStringField
      FieldName = 'NOME_MEDICO'
      Size = 100
    end
    object proc_medicoID_MEDICO: TIntegerField
      FieldName = 'ID_MEDICO'
      Required = True
      Visible = False
    end
  end
  object cds_par: TSQLClientDataSet
    CommandText = 'select * from PARAMETROS '
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = DM.SQLObitos
    Left = 272
    Top = 48
    object cds_parPARAMETRO: TStringField
      FieldName = 'PARAMETRO'
      Required = True
      Size = 60
    end
    object cds_parDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 100
    end
    object cds_parCONFIGURADO: TStringField
      FieldName = 'CONFIGURADO'
      FixedChar = True
      Size = 1
    end
    object cds_parPARAMETRO1: TStringField
      FieldName = 'PARAMETRO1'
      Size = 40
    end
    object cds_parPARAMETRO2: TStringField
      FieldName = 'PARAMETRO2'
      Size = 40
    end
    object cds_parPARAMETRO3: TStringField
      FieldName = 'PARAMETRO3'
      Size = 40
    end
    object cds_parPARAMETRO4: TStringField
      FieldName = 'PARAMETRO4'
      Size = 40
    end
    object cds_parPARAMETRO5: TStringField
      FieldName = 'PARAMETRO5'
      Size = 40
    end
    object cds_parPARAMETRO6: TStringField
      FieldName = 'PARAMETRO6'
      Size = 40
    end
    object cds_parPARAMETRO7: TStringField
      FieldName = 'PARAMETRO7'
      Size = 40
    end
    object cds_parPARAMETRO8: TStringField
      FieldName = 'PARAMETRO8'
      Size = 40
    end
    object cds_parPARAMETRO9: TStringField
      FieldName = 'PARAMETRO9'
      Size = 40
    end
  end
end
